home *** CD-ROM | disk | FTP | other *** search
/ Robotics & Artificial Int…3 (Professional Edition) / Robotics & Artificial Intelligence Tools 2003 (Professional Edition).iso / neural network tool and application / nsinstall.exe / data1.cab / InteractiveBook_Files / Examples / Chapter1 / R-value / 1 r-value.nsm next >
Encoding:
Text File  |  2002-03-08  |  6.2 KB  |  155 lines
  1. //
  2. // This macro creates the standard linear regression breadboard
  3. //
  4. application. newBreadboard (  )
  5. runPath = macro. pathFromMacro ( "..\InitializeBreadboard.nsm" )
  6. activeBreadboard. runMacro ( runPath )
  7.  
  8. subtitleTextBox. setText ("")
  9. mainTextBox. setText ("")
  10. //
  11. // drop down input axon and file icon
  12. //
  13. activeBreadboard. setAnimatePoint ( 20 , 225 )
  14. activeBreadboard. stampAndMove ( "Axon" , "inputAxon" )
  15. inputAxon. setRows ( 1 )
  16. activeBreadboard. stampOnAndMove ( "File" , "inputAxon" )
  17. file. setName ("inputFile")
  18. inputFile. setActiveAccessPoint ( "Pre-Activity" )
  19. inputFilePath = macro. pathFromMacro ( "regression input.asc" )
  20. inputFile. addFile ( inputFilePath , FALSE )
  21. inputFile. setActiveTranslatorName ( "ASCII - Column" , FALSE )
  22. inputFile. setNormalize ( FALSE )
  23. inputFile. translate (  )
  24. //
  25. // put down synapse and bias axon
  26. //
  27. activeBreadboard. setAnimatePoint ( 110 , 225 )
  28. activeBreadboard. stampAndMove ( "FullSynapse" , "hidden1Synapse" )
  29. inputAxon. connectTo ( "hidden1Synapse" )
  30. activeBreadboard. setAnimatePoint ( 200 , 225 )
  31. activeBreadboard. stampAndMove ( "BiasAxon" , "outputAxon" )
  32. outputAxon. setRows ( 1 )
  33. hidden1Synapse. connectTo ( "outputAxon" )
  34. //
  35. // put down controller
  36. //
  37. activeBreadboard. setAnimatePoint ( 15 , 200 )
  38. activeBreadboard. stampAndMove ( "StaticControl" , "control" )
  39. control. setEpochs ( 1 )
  40. activeBreadboard. stampOnAndMove ( "DataStorage" , "inputAxon" )
  41. dataStorage. setName("inputActivityStorage")
  42. activeBreadboard. stampOnAndMove ( "ScatterPlot" , "inputActivityStorage" )
  43. scatterPlot. setName("inputActivityScatterPlot")
  44. activeBreadboard. stampOnAndMove ( "DataStorageTransmitter" , "outputAxon" )
  45. dataStorageTransmitter. setName("outputActivityTransmitter")
  46. outputActivityTransmitter. setActiveAccessPoint ( "Activity" )
  47. outputActivityTransmitter. toggleConnection ( "inputActivityStorage" , "attachToBuffer" )
  48. //
  49. // add scatter plot
  50. //
  51. inputActivityStorage. setMessageEvery ( 12 )
  52. inputActivityStorage. setBufferLength ( 12 )
  53. inputActivityScatterPlot. openEngineWindow (  )
  54. inputActivityScatterPlot. setXMaxScale (12.0000 )
  55. inputActivityScatterPlot. setXMinScale ( -1.0000 )
  56. inputActivityScatterPlot. setYMaxScale ( 10.000000 )
  57. inputActivityScatterPlot. setYMinScale ( -10.000000 )
  58. inputActivityScatterPlot. setBroadcast ( TRUE )
  59. inputActivityScatterPlot. setDotSize ( 3 )
  60. inputActivityScatterPlot. setBroadcast ( FALSE )
  61. inputActivityScatterPlot. setActiveChannel ( 2 )
  62. inputActivityScatterPlot. setVisible ( TRUE )
  63. inputActivityScatterPlot. setActiveChannel ( 1 )
  64. inputActivityScatterPlot. setVisible ( TRUE )
  65. inputActivityScatterPlot. setActiveChannel ( 0 )
  66. inputActivityScatterPlot. setVisible ( FALSE )
  67. inputActivityScatterPlot. tileWindow(1,3,3,3)
  68. inputActivityScatterPlot. setFixWindowTitle ( TRUE )
  69. inputActivityScatterPlot. setWindowTitle ( "Input Data (red) and Regression Line (blue)" )
  70.  
  71. runPath = macro. pathFromMacro ( "..\make edit box.nsm" )
  72. activeBreadboard. runMacro ( runPath )
  73. activeBreadboard. moveSelectionBy ( 450 ,200 )
  74. newTextBox. setName("WeightTextBox")
  75. newEditBox. setName("WeightEditBox")
  76. WeightTextBox. setText("Weight")
  77. WeightEditBox. setText("1")
  78. weightPath= macro. pathFromMacro("change weight.nsm")
  79. WeightEditBox. setMacroPath(weightPath)
  80.  
  81. runPath = macro. pathFromMacro ( "..\make edit box.nsm" )
  82. activeBreadboard. runMacro ( runPath )
  83. activeBreadboard. moveSelectionBy ( 450 , 240 )
  84. newTextBox. setName("BiasTextBox")
  85. newEditBox. setName("BiasEditBox")
  86. BiasTextBox. setText("Bias")
  87. BiasEditBox. setText("0")
  88. biasPath= macro. pathFromMacro("change bias.nsm")
  89. BiasEditBox. setMacroPath(biasPath)
  90. / 
  91. // add l2 and viewer
  92. //
  93. activeBreadboard. setAnimatePoint ( 310 , 225 )
  94. activeBreadboard. stampAndMove ( "L2Criterion" , "criterion" )
  95. outputAxon. connectTo ( "criterion" )
  96. activeBreadboard. stampOnAndMove ( "File" , "criterion" )
  97. file. setName(desiredFile)
  98. desiredFile. setActiveAccessPoint ( "Desired Signal" )
  99. desiredFilePath = macro. pathFromMacro ( "regression desired.asc" )
  100. desiredFile. addFile (desiredFilePath , FALSE )
  101. activeBreadboard. select ( "desiredFile" , FALSE )
  102. desiredFile. setNormalize ( FALSE )
  103. activeBreadboard. stampOnAndMove ( "DataStorageTransmitter" , "desiredFile" )
  104. dataStorageTransmitter. toggleConnection ( "inputActivityStorage" , "attachToBuffer" )
  105. inputActivityStorage. setMessageEvery ( 12 )
  106. inputActivityScatterPlot. openEngineWindow (  )
  107. inputActivityScatterPlot. setXMaxScale (12.0000 )
  108. inputActivityScatterPlot. setXMinScale ( -1.0000 )
  109. inputActivityScatterPlot. setYMaxScale ( 10.000000 )
  110. inputActivityScatterPlot. setYMinScale ( -10.000000 )
  111. inputActivityScatterPlot. setBroadcast ( TRUE )
  112. inputActivityScatterPlot. setDotSize ( 3 )
  113. inputActivityScatterPlot. setBroadcast ( FALSE )
  114. inputActivityScatterPlot. setActiveChannel ( 2 )
  115. inputActivityScatterPlot. setVisible ( TRUE )
  116. inputActivityScatterPlot. setActiveChannel ( 1 )
  117. inputActivityScatterPlot. setVisible ( TRUE )
  118. inputActivityScatterPlot. setActiveChannel ( 0 )
  119. inputActivityScatterPlot. setVisible ( FALSE )
  120. inputActivityScatterPlot. tileWindow(1,3,3,3)
  121.  
  122. activeBreadboard. stampOnAndMove ( "MatrixViewer" , "criterion" )
  123. matrixViewer. setName(costViewer)
  124. costViewer. setActiveAccessPoint ( "Average Cost" )
  125. costViewer. setEnableLabels ( TRUE )
  126. costViewer. setAccessRows(FALSE)
  127. costViewer. setLabel ( "Mean Squared Error" )
  128. costViewer. setAccessRows ( TRUE )
  129. costViewer. setLabel ( "" )
  130. costViewer. openEngineWindow (  )
  131. costViewer. tileWindow(4,4,5,6)
  132.  
  133. activeBreadboard. select ( NULL, FALSE )
  134.  
  135. hidden1Synapse. setWeightVariance(0)
  136. hidden1Synapse. setWeightMean(1)
  137. outputAxon. setWeightVariance(0)
  138. outputAxon. setWeightMean(0)
  139. activeBreadboard. select ( NULL, FALSE )
  140. control. resetNetwork (  )
  141. control. runNetwork (  )
  142. //
  143. // fill in text
  144. //
  145. TextBoxPath = macro. pathFromMacro("textBox1.txt")
  146. NextMacroPath = macro. pathFromMacro ( "2 add r-value dll.nsm" )
  147. nextButton. setMacroPath ( NextMacroPath )
  148. CancelMacroPath= macro.pathFromMacro("..\minimize.nsm")
  149. cancelButton. setMacroPath ( CancelMacroPath)
  150. TitleIndex = titleTextBox. setTextFromFile (TextBoxPath, 0)
  151. SubtitleIndex = subtitleTextBox. setTextFromFile (TextBoxPath, 0)
  152. MainIndex = mainTextBox. setTextFromFile (TextBoxPath, 0)
  153. //////////activeBreadboard.unlockWindowUpdate()
  154.  
  155.